bm:{
   if[count[x]>1;'`length];
   0N! til x;
   };
